home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / alphacenter.xdve < prev    next >
Text File  |  1995-06-21  |  2KB  |  73 lines
  1. /* DISSOLVENZA CON ALPHA LINEARE dal centro in 50 FRAMES */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpAlpha = 'T:alpha'
  9. TmpAlphaB = 'T:alphaB'
  10. TmpIma = 'T:immagine'
  11. TmpIma2 = 'T:immagine2'
  12. BRIGH = 50
  13. NUMEROFRAME = 0   
  14.  
  15. GETFILES '"Seleziona la PRIMA immagine"'
  16.  IF RC ~= 0 THEN EXIT
  17.   PRIMA = ADPRO_RESULT
  18.    IF PRIMA = "" THEN EXIT
  19.      LOADER "UNIVERSAL" PRIMA
  20.     XSIZE
  21.      BASE = ADPRO_RESULT
  22.     YSIZE
  23.      ALTZ = ADPRO_RESULT
  24. SAVER "IFF" TmpIma "RAW"
  25.  
  26. GETFILES '"Seleziona la SECONDA immagine"'
  27.  IF RC ~= 0 THEN EXIT
  28.   SECONDA = ADPRO_RESULT
  29.    IF SECONDA = "" THEN EXIT
  30.     LOADER "UNIVERSAL" SECONDA
  31.     XSIZE
  32.      BASE2 = ADPRO_RESULT
  33.     YSIZE
  34.      ALTZ2 = ADPRO_RESULT
  35. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  36.                           ABS_SCALE (BASE) (ALTZ)
  37.                           END
  38. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  39.                           ABS_SCALE (BASE) (ALTZ)
  40.                           END
  41.      SAVER "IFF" TmpIma2 "RAW"     
  42.      
  43. GETfile '"Path e nomebase 50 frames elaborati"'
  44. IF RC ~= 0 THEN EXIT
  45. OUTFILE = ADPRO_RESULT
  46. if OUTFILE = "" then exit 
  47.   
  48. LOADER 'BACKLINE' TYPE 'COLOR' WIDTH (BASE) HEIGHT (ALTZ) POSITION 50 NE ,
  49. START 255 255 255 MIDDLE 0 0 0 END 255 255 255
  50.  SAVER "IFF" TmpAlpha "RAW"
  51.  
  52.    DO i=1 to 50
  53.  LOADER "UNIVERSAL" TmpAlpha
  54.   BRIGHTNESS (BRIGH)
  55.   OPERATOR Apply_Map
  56.    SAVER "IFF" TmpAlphaB "RAW"
  57. LFORMAT "IFF"
  58. LOAD TmpIma2
  59. LOADER "UNIVERSAL" TmpAlphaB COMPOFFSET 0 0 ASALPHA
  60. LOAD TmpIma COMPOFFSET 0 0 100 ALPHAMEM
  61.      BRIGH = (BRIGH - 2)
  62.   NUMEROFRAME = (NUMEROFRAME + 1)
  63. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  64.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW"
  65.   SAY "Salvo il frame Num." NUMERO
  66.  END
  67.  
  68. ADDRESS COMMAND "Delete >NIL:" TmpIma
  69. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  70. ADDRESS COMMAND "Delete >NIL:" TmpAlpha
  71. ADDRESS COMMAND "Delete >NIL:" TmpAlphaB
  72. EXIT
  73.